COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "EXAMPLE ONE"
C00003 ENDMK
C⊗;
BEGIN "EXAMPLE ONE"
	REQUIRE "GEOMES.HDR[GEM,HE]" SOURCE_FILE;
	DEFINE π="3.1415927";
	INTEGER B1,B2,I;
	MKUNIV;
	B1 ← MKCUBE(8,1,0.5);
	B2 ← MKCUBE(1,2,4);
	TRANSL(B2,-5,1.5,0);
	FOR I←1 STEP 1 UNTIL 24 DO
BEGIN
	GEODPY;
	ROTATE(B1,π/10,π/12,π/13);
	ROTATE(B2,0,2*π/23,0);
END;
END "EXAMPLE ONE";